Option Explicit
Sub F_Sample003()
    'ոF_Data.csv 
    Dim myFileName As String
    MyFileName = "F_Data.csv"				'ŪJɮ
    Workbooks.OpenText _
        Filename:=ThisWorkbook.Path & "\" & myFileName, _
        StartRow:=1, _
        DataType:=xlDelimited, _
        Comma:=True, _
        FieldInfo:=Array(Array(1, 2), Array(2, 1), Array(3, 1), _
        Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), _
        Array(8, 1))						'bC椤]w榡
End Sub
